Brian Durán

Tarea: Sesión 2 y 3

I Parte

Sea \(P=(2,3)\), \(Q=(5,2)\), \(R=(2,-5)\) y \(S=(1,-2)\). Calcule \(proy_{\vec{PQ}}\vec{RS}\).

\(\vec{PQ}\)

q <- c(5,2)
p <- c(2,3)
pq <- q - p
pq

[1]  3 -1

\(\vec{RS}\)

r <- c(2,-5)
s <- c(1,-2)
rs <- s - r
rs

[1] -1  3

\(proy_{\vec{PQ}}\vec{RS}\)

r <- c(2,-5)
s <- c(1,-2)
rs <- s - r

q <- c(5,2)
p <- c(2,3)
pq <- q - p

proy <- project(rs, pq)

fractions(proy)

[1] -9/5  3/5

Sea \(u = (-2,1,6)\) y \(v = (2,4,5)\), comprueba que el vector \(w\) dado por \(w = u - \frac{u \cdot v}{\|v\|^2} v\) Es un vector ortogonal con \(v\)

Calculamos:

\(u \cdot v\)

u <- c(-2,1,6)
v <- c(2,4,5)
sum(u*v)

[1] 30

\({\|v\|^2}\)

v <- c(2,4,5)
norm(v, type="2")^2

[1] 45

\(w = u - \frac{u \cdot v}{\|v\|^2} v\)

v <- c(2,4,5)
v2 <- norm(v, type="2")^2

u <- c(-2,1,6)
v <- c(2,4,5)
prod_punto_u_v = sum(u*v)

w = u - ((prod_punto_u_v / v2) * v)

w = fractions(w)

sum(w*v)

[1] 0

subspace(as.matrix(w),as.matrix(v))

[1] 1.570796

180*subspace(as.matrix(w),as.matrix(v))/pi

[1] 90

\(W _{\bot } V ?\)

w es ortogonal con v, ya que la múltiplicación entre ellos es igual a cero. Además de que el ángulo que los separa es igual a \(\pi\ /2\)

Sean \(A=(3,0,0)\), \(B=(1,0,2)\), \(C=(2,3,0)\) puntos en el espacio (\(R^3\)).

Con estos puntos: a. Determine si el triángulo \(ABC\) es rectángulo, obtusángulo o acutángulo. b. Determine el perímetro del triángulo \(ABC\) c. Determine el área del triángulo ABC

a <- c(3,0,0)
b <- c(1,0,2)
c <- c(2,3,0)

ab <- b-a
bc <- c-b
ca <- c-a

Respuesta: El triángulo es acutángulo, ya que todos sus ángulos se encuentran entre 0 y 90 grados.

a <- c(3,0,0)
b <- c(1,0,2)
c <- c(2,3,0)

ab <- b-a
bc <- c-b
ca <- a-c

norma_ab <- norm(ab, type="2")
norma_bc <- norm(bc, type="2")
norma_ca <- norm(ca, type="2")

norma_ab + norma_bc + norma_ca

[1] 9.732362


a <- c(3,0,0)
b <- c(1,0,2)
c <- c(2,3,0)

ab <- b-a
bc <- c-b
ca <- a-c

norma_ab <- norm(ab, type="2")
norma_bc <- norm(bc, type="2")
norma_ca <- norm(ca, type="2")

perimetro <- norma_ab + norma_bc + norma_ca

semiperimetro <- perimetro / 2

# Por formula de Héron
area = sqrt(semiperimetro * (semiperimetro - norma_ab) * (semiperimetro - norma_bc) * (semiperimetro - norma_ca))

area

[1] 4.358899

II Parte

Compruebe que la matriz P, es ortogonal:

p <- matrix(c(1/2, 1/2, 1/2, 1/2, 
              (1/sqrt(2)), -(1/sqrt(2)), 0, 0, 
              (1/sqrt(6)), (1/sqrt(6)), -(2/sqrt(6)), 0, 
              (1/(2*sqrt(3))), (1/(2*sqrt(3))), (1/(2*sqrt(3))), -(3/(2*sqrt(3)))), 
              nrow=4, ncol=4, byrow=TRUE)

matriz_p <- fractions(p)

matriz_p

     [,1]           [,2]           [,3]           [,4]          
[1,]            1/2            1/2            1/2            1/2
[2,]      2378/3363     -5741/8119              0              0
[3,]    19402/47525    19402/47525  -86329/105731              0
[4,]   75658/262087   75658/262087   75658/262087 -489061/564719

p_inversa <- solve(matriz_p)

fractions(p_inversa)

     [,1]           [,2]           [,3]           [,4]          
[1,]            1/2      2378/3363    19402/47525   75658/262087
[2,]            1/2     -5741/8119    19402/47525   75658/262087
[3,]            1/2              0  -86329/105731   75658/262087
[4,]            1/2              0              0 -489061/564719

p_transpuesta <- t(p)

fractions(p_transpuesta)

     [,1]           [,2]           [,3]           [,4]          
[1,]            1/2      2378/3363    19402/47525   75658/262087
[2,]            1/2     -5741/8119    19402/47525   75658/262087
[3,]            1/2              0  -86329/105731   75658/262087
[4,]            1/2              0              0 -489061/564719

La matriz P es ortogonal puesto que su inversa y su transpuesta son iguales.

Demuestre que A es indempotente.

a <- matrix(c(2, -2, -4, 
              -1, 3, 4,
              1, -2, -3), 
              3, 3, byrow=TRUE)


a

     [,1] [,2] [,3]
[1,]    2   -2   -4
[2,]   -1    3    4
[3,]    1   -2   -3

a%*%a

     [,1] [,2] [,3]
[1,]    2   -2   -4
[2,]   -1    3    4
[3,]    1   -2   -3

La matriz A es idempotente puesto que es igual a ella misma al cuadrado.

Determine la composición \(f(m)\)

m <- matrix(c(3/2, -5/2, 
              2/3, -1/3), 
              2, 2, byrow=TRUE)

fractions(m)

     [,1] [,2]
[1,]  3/2 -5/2
[2,]  2/3 -1/3

m3 <- m%*%m%*%m

m2 <- m%*%m

fx = 6*m3 + 3*m2 - m

fractions(fx)

     [,1]   [,2]  
[1,]  -37/6  -55/6
[2,]   22/9 -116/9

Encuentre la matriz inversa y el determinante de cada una de las siguientes matrices:


a <- matrix(c(1, 2, 3, 
              2, 5, 7,
              -2, -4, -5), 
              3, 3, byrow=TRUE)

solve(a)

     [,1] [,2] [,3]
[1,]    3   -2   -1
[2,]   -4    1   -1
[3,]    2    0    1

det(a)

[1] 1

b <- matrix(c(3, -2, -1, 
              -4, 1, -1,
              2, 0, 1), 
              3, 3, byrow=TRUE)

solve(b)

     [,1] [,2] [,3]
[1,]    1    2    3
[2,]    2    5    7
[3,]   -2   -4   -5

det(b)

[1] 1

c <- matrix(c(0, 2, 1, 
              1, 3, -1,
              -1, 1, 2), 
              3, 3, byrow=TRUE)

solve(c)

     [,1] [,2] [,3]
[1,]  3.5 -1.5 -2.5
[2,] -0.5  0.5  0.5
[3,]  2.0 -1.0 -1.0

det(c)

[1] 2

d <- matrix(c(3, 6, 9, 
              2, 5, 1,
              1, 1, 8), 
              3, 3, byrow=TRUE)

det(d)

[1] 0

La última matriz no tiene inversa puesto que el determinante es cero, es decir la matriz es singular o invertible.

Que relación existe entra las matrices que poseen inversas y el valor de su determinante? Sug: revisar la teoría vista en clase.

Autor Brian Duran

bduran0393@gmail.com

LS0tDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpgYGB7Y3NzLCBlY2hvID0gRkFMU0V9DQouaW5kZW50IHsNCiBtYXJnaW4tbGVmdDogMzBweDsNCn0NCmBgYA0KYGBge3IsIGVjaG8gPSBGQUxTRSwgbWVzc2FnZSA9IEZBTFNFfQ0KbGlicmFyeShwcmFjbWEpDQpsaWJyYXJ5KG1vc2FpYykNCmxpYnJhcnkoTUFTUykNCmBgYA0KDQojIyMgQnJpYW4gRHVyw6FuDQohW10oLi4vbG9nb19jaWVuY2lhX2RlX2RhdG9zLnBuZykNCg0KPGgxPjxjZW50ZXI+IFRhcmVhOiBTZXNpw7NuIDIgeSAzIDwvY2VudGVyPjwvaDE+DQoNCjwvYnI+DQoNCiMjIyMgSSBQYXJ0ZQ0KDQo8L2JyPg0KDQoxLiBTZWEgJFA9KDIsMykkLCAkUT0oNSwyKSQsICRSPSgyLC01KSQgeSAkUz0oMSwtMikkLiBDYWxjdWxlICRwcm95X3tcdmVje1BRfX1cdmVje1JTfSQuDQoNCiAgJFx2ZWN7UFF9JA0KDQpgYGB7ciwgY2xhc3Muc291cmNlPSJpbmRlbnQiLCBjbGFzcy5vdXRwdXQ9ImluZGVudCJ9DQpxIDwtIGMoNSwyKQ0KcCA8LSBjKDIsMykNCnBxIDwtIHEgLSBwDQpwcQ0KDQpgYGANCg0KICAkXHZlY3tSU30kDQoNCmBgYHtyLCBjbGFzcy5zb3VyY2U9ImluZGVudCIsIGNsYXNzLm91dHB1dD0iaW5kZW50In0NCnIgPC0gYygyLC01KQ0KcyA8LSBjKDEsLTIpDQpycyA8LSBzIC0gcg0KcnMNCg0KYGBgDQoNCjwvYnI+DQoNCiRwcm95X3tcdmVje1BRfX1cdmVje1JTfSQNCg0KYGBge3IsIGNsYXNzLnNvdXJjZT0iaW5kZW50IiwgY2xhc3Mub3V0cHV0PSJpbmRlbnQifQ0KciA8LSBjKDIsLTUpDQpzIDwtIGMoMSwtMikNCnJzIDwtIHMgLSByDQoNCnEgPC0gYyg1LDIpDQpwIDwtIGMoMiwzKQ0KcHEgPC0gcSAtIHANCg0KcHJveSA8LSBwcm9qZWN0KHJzLCBwcSkNCg0KZnJhY3Rpb25zKHByb3kpDQoNCmBgYA0KDQo8L2JyPg0KDQoyLiBTZWEgJHUgPSAoLTIsMSw2KSQgeSAkdiA9ICgyLDQsNSkkLCBjb21wcnVlYmEgcXVlIGVsIHZlY3RvciAkdyQgZGFkbyBwb3IgJHcgPSB1IC0gXGZyYWN7dSBcY2RvdCB2fXtcfHZcfF4yfSB2JA0KRXMgdW4gdmVjdG9yIG9ydG9nb25hbCBjb24gJHYkDQoNCkNhbGN1bGFtb3M6DQoNCiR1IFxjZG90IHYkDQoNCmBgYHtyLCBjbGFzcy5zb3VyY2U9ImluZGVudCIsIGNsYXNzLm91dHB1dD0iaW5kZW50In0NCnUgPC0gYygtMiwxLDYpDQp2IDwtIGMoMiw0LDUpDQpzdW0odSp2KQ0KYGBgDQoNCiR7XHx2XHxeMn0kDQoNCmBgYHtyLCBjbGFzcy5zb3VyY2U9ImluZGVudCIsIGNsYXNzLm91dHB1dD0iaW5kZW50In0NCnYgPC0gYygyLDQsNSkNCm5vcm0odiwgdHlwZT0iMiIpXjINCmBgYA0KDQokdyA9IHUgLSBcZnJhY3t1IFxjZG90IHZ9e1x8dlx8XjJ9IHYkDQoNCg0KYGBge3IsIGNsYXNzLnNvdXJjZT0iaW5kZW50IiwgY2xhc3Mub3V0cHV0PSJpbmRlbnQifQ0KdiA8LSBjKDIsNCw1KQ0KdjIgPC0gbm9ybSh2LCB0eXBlPSIyIileMg0KDQp1IDwtIGMoLTIsMSw2KQ0KdiA8LSBjKDIsNCw1KQ0KcHJvZF9wdW50b191X3YgPSBzdW0odSp2KQ0KDQp3ID0gdSAtICgocHJvZF9wdW50b191X3YgLyB2MikgKiB2KQ0KDQp3ID0gZnJhY3Rpb25zKHcpDQoNCnN1bSh3KnYpDQoNCnN1YnNwYWNlKGFzLm1hdHJpeCh3KSxhcy5tYXRyaXgodikpDQoNCjE4MCpzdWJzcGFjZShhcy5tYXRyaXgodyksYXMubWF0cml4KHYpKS9waQ0KDQpgYGANCg0KJFcgX3tcYm90IH0gViA/JA0KDQp3IGVzIG9ydG9nb25hbCBjb24gdiwgeWEgcXVlIGxhIG3Dumx0aXBsaWNhY2nDs24gZW50cmUgZWxsb3MgZXMgaWd1YWwgYSBjZXJvLiBBZGVtw6FzIGRlIHF1ZSBlbCDDoW5ndWxvIHF1ZSBsb3Mgc2VwYXJhIGVzIGlndWFsIGEgJFxwaVwgLzIkDQoNCg0KDQozLiBTZWFuICRBPSgzLDAsMCkkLCAkQj0oMSwwLDIpJCwgJEM9KDIsMywwKSQgcHVudG9zIGVuIGVsIGVzcGFjaW8gKCRSXjMkKS4gDQoNCkNvbiBlc3RvcyBwdW50b3M6DQogIGEuIERldGVybWluZSBzaSBlbCB0cmnDoW5ndWxvICRBQkMkIGVzIHJlY3TDoW5ndWxvLCBvYnR1c8Ohbmd1bG8gbyBhY3V0w6FuZ3Vsby4NCiAgYi4gRGV0ZXJtaW5lIGVsIHBlcsOtbWV0cm8gZGVsIHRyacOhbmd1bG8gJEFCQyQNCiAgYy4gRGV0ZXJtaW5lIGVsIMOhcmVhIGRlbCB0cmnDoW5ndWxvIEFCQw0KDQoNCmEuDQpgYGB7cn0NCmEgPC0gYygzLDAsMCkNCmIgPC0gYygxLDAsMikNCmMgPC0gYygyLDMsMCkNCg0KYWIgPC0gYi1hDQpiYyA8LSBjLWINCmNhIDwtIGEtYw0KDQphbmd1bG9fYWJfYmMgPSAxODAqc3Vic3BhY2UoYWIsIGJjKS9waQ0KYW5ndWxvX2JjX2NhID0gMTgwKnN1YnNwYWNlKGJjLCBjYSkvcGkNCmFuZ3Vsb19hYl9jYSA9IDE4MCpzdWJzcGFjZShhYiwgY2EpL3BpDQoNCmFuZ3Vsb19hYl9iYw0KYW5ndWxvX2JjX2NhDQphbmd1bG9fYWJfY2ENCg0KYGBgDQoNClJlc3B1ZXN0YTogRWwgdHJpw6FuZ3VsbyBlcyBhY3V0w6FuZ3VsbywgeWEgcXVlIHRvZG9zIHN1cyDDoW5ndWxvcyBzZSBlbmN1ZW50cmFuIGVudHJlIDAgeSA5MCBncmFkb3MuDQoNCg0KYi4NCg0KYGBge3J9DQphIDwtIGMoMywwLDApDQpiIDwtIGMoMSwwLDIpDQpjIDwtIGMoMiwzLDApDQoNCmFiIDwtIGItYQ0KYmMgPC0gYy1iDQpjYSA8LSBhLWMNCg0Kbm9ybWFfYWIgPC0gbm9ybShhYiwgdHlwZT0iMiIpDQpub3JtYV9iYyA8LSBub3JtKGJjLCB0eXBlPSIyIikNCm5vcm1hX2NhIDwtIG5vcm0oY2EsIHR5cGU9IjIiKQ0KDQpub3JtYV9hYiArIG5vcm1hX2JjICsgbm9ybWFfY2ENCmBgYA0KDQoNCmMuDQpgYGB7cn0NCg0KYSA8LSBjKDMsMCwwKQ0KYiA8LSBjKDEsMCwyKQ0KYyA8LSBjKDIsMywwKQ0KDQphYiA8LSBiLWENCmJjIDwtIGMtYg0KY2EgPC0gYS1jDQoNCm5vcm1hX2FiIDwtIG5vcm0oYWIsIHR5cGU9IjIiKQ0Kbm9ybWFfYmMgPC0gbm9ybShiYywgdHlwZT0iMiIpDQpub3JtYV9jYSA8LSBub3JtKGNhLCB0eXBlPSIyIikNCg0KcGVyaW1ldHJvIDwtIG5vcm1hX2FiICsgbm9ybWFfYmMgKyBub3JtYV9jYQ0KDQpzZW1pcGVyaW1ldHJvIDwtIHBlcmltZXRybyAvIDINCg0KIyBQb3IgZm9ybXVsYSBkZSBIw6lyb24NCmFyZWEgPSBzcXJ0KHNlbWlwZXJpbWV0cm8gKiAoc2VtaXBlcmltZXRybyAtIG5vcm1hX2FiKSAqIChzZW1pcGVyaW1ldHJvIC0gbm9ybWFfYmMpICogKHNlbWlwZXJpbWV0cm8gLSBub3JtYV9jYSkpDQoNCmFyZWENCg0KYGBgDQoNCg0KDQoNCjwvYnI+DQoNCiMjIyMgSUkgUGFydGUNCg0KPC9icj4NCg0KDQoxLiBDb21wcnVlYmUgcXVlIGxhIG1hdHJpeiBQLCBlcyBvcnRvZ29uYWw6DQoNCmBgYHtyfQ0KcCA8LSBtYXRyaXgoYygxLzIsIDEvMiwgMS8yLCAxLzIsIA0KICAgICAgICAgICAgICAoMS9zcXJ0KDIpKSwgLSgxL3NxcnQoMikpLCAwLCAwLCANCiAgICAgICAgICAgICAgKDEvc3FydCg2KSksICgxL3NxcnQoNikpLCAtKDIvc3FydCg2KSksIDAsIA0KICAgICAgICAgICAgICAoMS8oMipzcXJ0KDMpKSksICgxLygyKnNxcnQoMykpKSwgKDEvKDIqc3FydCgzKSkpLCAtKDMvKDIqc3FydCgzKSkpKSwgDQogICAgICAgICAgICAgIG5yb3c9NCwgbmNvbD00LCBieXJvdz1UUlVFKQ0KDQptYXRyaXpfcCA8LSBmcmFjdGlvbnMocCkNCg0KbWF0cml6X3ANCg0KDQpwX2ludmVyc2EgPC0gc29sdmUobWF0cml6X3ApDQoNCmZyYWN0aW9ucyhwX2ludmVyc2EpDQoNCg0KcF90cmFuc3B1ZXN0YSA8LSB0KHApDQoNCmZyYWN0aW9ucyhwX3RyYW5zcHVlc3RhKQ0KDQpgYGANCg0KTGEgbWF0cml6IFAgZXMgb3J0b2dvbmFsIHB1ZXN0byBxdWUgc3UgaW52ZXJzYSB5IHN1IHRyYW5zcHVlc3RhIHNvbiBpZ3VhbGVzLg0KDQoNCjIuIERlbXVlc3RyZSBxdWUgQSBlcyBpbmRlbXBvdGVudGUuDQoNCg0KYGBge3J9DQphIDwtIG1hdHJpeChjKDIsIC0yLCAtNCwgDQogICAgICAgICAgICAgIC0xLCAzLCA0LA0KICAgICAgICAgICAgICAxLCAtMiwgLTMpLCANCiAgICAgICAgICAgICAgMywgMywgYnlyb3c9VFJVRSkNCg0KDQphDQoNCmElKiVhDQoNCmBgYA0KDQoNCkxhIG1hdHJpeiBBIGVzIGlkZW1wb3RlbnRlIHB1ZXN0byBxdWUgZXMgaWd1YWwgYSBlbGxhIG1pc21hIGFsIGN1YWRyYWRvLg0KDQoNCjMuIERldGVybWluZSBsYSBjb21wb3NpY2nDs24gJGYobSkkDQoNCmBgYHtyfQ0KbSA8LSBtYXRyaXgoYygzLzIsIC01LzIsIA0KICAgICAgICAgICAgICAyLzMsIC0xLzMpLCANCiAgICAgICAgICAgICAgMiwgMiwgYnlyb3c9VFJVRSkNCg0KZnJhY3Rpb25zKG0pDQoNCm0zIDwtIG0lKiVtJSolbQ0KDQptMiA8LSBtJSolbQ0KDQpmeCA9IDYqbTMgKyAzKm0yIC0gbQ0KDQpmcmFjdGlvbnMoZngpDQoNCmBgYA0KDQoNCg0KNC4gRW5jdWVudHJlIGxhIG1hdHJpeiBpbnZlcnNhIHkgZWwgZGV0ZXJtaW5hbnRlIGRlIGNhZGEgdW5hIGRlIGxhcyBzaWd1aWVudGVzIG1hdHJpY2VzOg0KDQpgYGB7cn0NCg0KYSA8LSBtYXRyaXgoYygxLCAyLCAzLCANCiAgICAgICAgICAgICAgMiwgNSwgNywNCiAgICAgICAgICAgICAgLTIsIC00LCAtNSksIA0KICAgICAgICAgICAgICAzLCAzLCBieXJvdz1UUlVFKQ0KDQpzb2x2ZShhKQ0KZGV0KGEpDQoNCmIgPC0gbWF0cml4KGMoMywgLTIsIC0xLCANCiAgICAgICAgICAgICAgLTQsIDEsIC0xLA0KICAgICAgICAgICAgICAyLCAwLCAxKSwgDQogICAgICAgICAgICAgIDMsIDMsIGJ5cm93PVRSVUUpDQoNCnNvbHZlKGIpDQpkZXQoYikNCg0KDQpjIDwtIG1hdHJpeChjKDAsIDIsIDEsIA0KICAgICAgICAgICAgICAxLCAzLCAtMSwNCiAgICAgICAgICAgICAgLTEsIDEsIDIpLCANCiAgICAgICAgICAgICAgMywgMywgYnlyb3c9VFJVRSkNCg0Kc29sdmUoYykNCmRldChjKQ0KDQpkIDwtIG1hdHJpeChjKDMsIDYsIDksIA0KICAgICAgICAgICAgICAyLCA1LCAxLA0KICAgICAgICAgICAgICAxLCAxLCA4KSwgDQogICAgICAgICAgICAgIDMsIDMsIGJ5cm93PVRSVUUpDQoNCmRldChkKQ0KDQpgYGANCg0KTGEgw7psdGltYSBtYXRyaXogbm8gdGllbmUgaW52ZXJzYSBwdWVzdG8gcXVlIGVsIGRldGVybWluYW50ZSBlcyBjZXJvLCBlcyBkZWNpciBsYSBtYXRyaXogZXMgc2luZ3VsYXIgbyBpbnZlcnRpYmxlLg0KDQoNClF1ZSByZWxhY2nDs24gZXhpc3RlIGVudHJhIGxhcyBtYXRyaWNlcyBxdWUgcG9zZWVuIGludmVyc2FzIHkgZWwgdmFsb3IgZGUgc3UgZGV0ZXJtaW5hbnRlPyBTdWc6IHJldmlzYXIgbGEgdGVvcsOtYSB2aXN0YSBlbiBjbGFzZS4NCg0KDQoNCg0KPCEtLSAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLSAtLT4NCjwhLS0NCkVzdGEgc2VjY2nDs24gZXMgc29sbyBwYXJhIGFncmVnYXIgZXN0aWxvcyB5IGVsZW1lbnRvcyANCnBlcnNvbmFsaXphZG9zIGFsIGh0bWwgZ2VuZXJhZG8gcG9yIHJTdHVkaW8gIA0KLS0+DQo8IS0tIC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tIC0tPg0KDQombmJzcDsNCg0KPGhyIC8+DQo8cCBzdHlsZT0idGV4dC1hbGlnbjogY2VudGVyOyI+QXV0b3IgPGEgaHJlZj0iaHR0cHM6Ly9naXRodWIuY29tL2JkdXJhbnMiPkJyaWFuIER1cmFuPC9hPjwvcD4NCjxwIHN0eWxlPSJ0ZXh0LWFsaWduOiBjZW50ZXI7Ij48c3BhbiBzdHlsZT0iY29sb3I6ICM4MDgwODA7Ij48ZW0+YmR1cmFuMDM5M0BnbWFpbC5jb208L2VtPjwvc3Bhbj48L3A+DQoNCjwhLS0gQWRkIGljb24gbGlicmFyeSAtLT4NCjxsaW5rIHJlbD0ic3R5bGVzaGVldCIgaHJlZj0iaHR0cHM6Ly9jZG5qcy5jbG91ZGZsYXJlLmNvbS9hamF4L2xpYnMvZm9udC1hd2Vzb21lLzQuNy4wL2Nzcy9mb250LWF3ZXNvbWUubWluLmNzcyI+DQoNCjwhLS0gQWRkIGZvbnQgYXdlc29tZSBpY29ucyAtLT4NCjxwIHN0eWxlPSJ0ZXh0LWFsaWduOiBjZW50ZXI7Ij4NCiAgICA8YSBocmVmPSJodHRwczovL2dpdGh1Yi5jb20vYmR1cmFucy90ZWNfZGF0YV9zY2llbmNlX2NvdXJzZS90cmVlL21hc3Rlci9tYXRoZW1hdGljc19mb3JfZGF0YV9zY2llbmNlL3Nlc3Npb25fNF9hbmRfNV9ob21ld29yayIgY2xhc3M9ImZhIGZhLWdpdGh1YiI+PC9hPg0KPC9wPg0KDQo8YSBocmVmPSJodHRwczovL2dpdGh1Yi5jb20vYmR1cmFucy90ZWNfZGF0YV9zY2llbmNlX2NvdXJzZS90cmVlL21hc3Rlci9tYXRoZW1hdGljc19mb3JfZGF0YV9zY2llbmNlL3Nlc3Npb25fNF9hbmRfNV9ob21ld29yayIgY2xhc3M9ImdpdGh1Yi1jb3JuZXIiIGFyaWEtbGFiZWw9IlZpZXcgc291cmNlIG9uIEdpdEh1YiI+PHN2ZyB3aWR0aD0iODAiIGhlaWdodD0iODAiIHZpZXdCb3g9IjAgMCAyNTAgMjUwIiBzdHlsZT0iZmlsbDojMTUxNTEzOyBjb2xvcjojZmZmOyBwb3NpdGlvbjogYWJzb2x1dGU7IHRvcDogMDsgYm9yZGVyOiAwOyByaWdodDogMDsiIGFyaWEtaGlkZGVuPSJ0cnVlIj48cGF0aCBkPSJNMCwwIEwxMTUsMTE1IEwxMzAsMTE1IEwxNDIsMTQyIEwyNTAsMjUwIEwyNTAsMCBaIj48L3BhdGg+PHBhdGggZD0iTTEyOC4zLDEwOS4wIEMxMTMuOCw5OS43IDExOS4wLDg5LjYgMTE5LjAsODkuNiBDMTIyLjAsODIuNyAxMjAuNSw3OC42IDEyMC41LDc4LjYgQzExOS4yLDcyLjAgMTIzLjQsNzYuMyAxMjMuNCw3Ni4zIEMxMjcuMyw4MC45IDEyNS41LDg3LjMgMTI1LjUsODcuMyBDMTIyLjksOTcuNiAxMzAuNiwxMDEuOSAxMzQuNCwxMDMuMiIgZmlsbD0iY3VycmVudENvbG9yIiBzdHlsZT0idHJhbnNmb3JtLW9yaWdpbjogMTMwcHggMTA2cHg7IiBjbGFzcz0ib2N0by1hcm0iPjwvcGF0aD48cGF0aCBkPSJNMTE1LjAsMTE1LjAgQzExNC45LDExNS4xIDExOC43LDExNi41IDExOS44LDExNS40IEwxMzMuNywxMDEuNiBDMTM2LjksOTkuMiAxMzkuOSw5OC40IDE0Mi4yLDk4LjYgQzEzMy44LDg4LjAgMTI3LjUsNzQuNCAxNDMuOCw1OC4wIEMxNDguNSw1My40IDE1NC4wLDUxLjIgMTU5LjcsNTEuMCBDMTYwLjMsNDkuNCAxNjMuMiw0My42IDE3MS40LDQwLjEgQzE3MS40LDQwLjEgMTc2LjEsNDIuNSAxNzguOCw1Ni4yIEMxODMuMSw1OC42IDE4Ny4yLDYxLjggMTkwLjksNjUuNCBDMTk0LjUsNjkuMCAxOTcuNyw3My4yIDIwMC4xLDc3LjYgQzIxMy44LDgwLjIgMjE2LjMsODQuOSAyMTYuMyw4NC45IEMyMTIuNyw5My4xIDIwNi45LDk2LjAgMjA1LjQsOTYuNiBDMjA1LjEsMTAyLjQgMjAzLjAsMTA3LjggMTk4LjMsMTEyLjUgQzE4MS45LDEyOC45IDE2OC4zLDEyMi41IDE1Ny43LDExNC4xIEMxNTcuOSwxMTYuOSAxNTYuNywxMjAuOSAxNTIuNywxMjQuOSBMMTQxLjAsMTM2LjUgQzEzOS44LDEzNy43IDE0MS42LDE0MS45IDE0MS44LDE0MS44IFoiIGZpbGw9ImN1cnJlbnRDb2xvciIgY2xhc3M9Im9jdG8tYm9keSI+PC9wYXRoPjwvc3ZnPjwvYT48c3R5bGU+LmdpdGh1Yi1jb3JuZXI6aG92ZXIgLm9jdG8tYXJte2FuaW1hdGlvbjpvY3RvY2F0LXdhdmUgNTYwbXMgZWFzZS1pbi1vdXR9QGtleWZyYW1lcyBvY3RvY2F0LXdhdmV7MCUsMTAwJXt0cmFuc2Zvcm06cm90YXRlKDApfTIwJSw2MCV7dHJhbnNmb3JtOnJvdGF0ZSgtMjVkZWcpfTQwJSw4MCV7dHJhbnNmb3JtOnJvdGF0ZSgxMGRlZyl9fUBtZWRpYSAobWF4LXdpZHRoOjUwMHB4KXsuZ2l0aHViLWNvcm5lcjpob3ZlciAub2N0by1hcm17YW5pbWF0aW9uOm5vbmV9LmdpdGh1Yi1jb3JuZXIgLm9jdG8tYXJte2FuaW1hdGlvbjpvY3RvY2F0LXdhdmUgNTYwbXMgZWFzZS1pbi1vdXR9fTwvc3R5bGU+DQoNCjxzY3JpcHQ+DQokKGRvY3VtZW50KS5yZWFkeShmdW5jdGlvbiAoKSB7DQogICAgJCgncHJlLnInKS5hZGRDbGFzcygnaW5kZW50Jyk7DQp9KTsNCjwvc2NyaXB0Pg0KDQo8c3R5bGU+DQouaW5kZW50IHsNCiBtYXJnaW4tbGVmdDogMzBweDsNCn0NCjwvc3R5bGU+DQoNCiZuYnNwOw0K